home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / SHOW.SPEED.bas < prev    next >
BASIC Source File  |  2012-02-16  |  335b  |  10 lines
  1. 10  TEXT : HOME 
  2. 20 D$ =  CHR$(4)
  3. 30  HGR 
  4. 35 P$ = "BAR"
  5. 40  PRINT D$"BLOAD/PRODOS.03/PICTURES/";P$;",A$2000"
  6. 50  VTAB 22: PRINT "PUSH ANY KEY TO LOAD OTHER PICTURE": PRINT "PUSH Q TO QUIT"
  7. 70  GET A$: IF A$ = "Q"  THEN  TEXT : END 
  8. 75  POKE 49234,0
  9. 80  IF P$ = "BAR"  THEN P$ = "EINSTEIN": HOME : GOTO 40
  10. 90 P$ = "BAR": HOME : GOTO 40